#Francisco M. Ulloa 8090851

#9.2 Exerccio Anlise exploratria simultnea de duas variveis

#Crie uma funo para sada grfica de anlises exploratrias de duas variveis. Essa sada pode ter por exemplo boxplot, histograma, qq norm e y por x. A funo deve permitir a entrada de dois objetos vetores de mesmo tamanho (x e y). Caso os valores de x e y forem desenhados em um mesmo grfico, defina cores diferentes. As legendas devem ser em portugus e a sada (return) deve apresentar o sumrio 
#das duas variveis e o coeficiente de correlao.

setwd("C:\\Users\\Francisco\\Documents\\Doctorado\\Disciplina R - BIE5782")

#install.packages("plotrix") 

library()
library(plotrix)
?multhist

grafico.f <- function(var.1, var.2)
  {
  if(class(var.1) != "numeric" | class(var.2) != "numeric")
    {
    stop("'varivel.1' e 'varivel.2' devem ser vetores numricos.")
  }
  if(length(var.1) != length(var.2))
    {
    stop("'varivel.1' e 'varivel.2' devem ter o mesmo nmero de elementos.")
  }
  
  x11()
  
  par(mfrow=c(2,2))
  require(plotrix)
  multhist(list( var.1,var.2), main="Histograma das variveis",
           legend.text=TRUE, ylab = "Frequncias", 
           xlab = c("Variavel 1","Variavel 2") , col = c(139,53))
 
  boxplot(var.1,var.2,main="Boxplot das variveis", col = c(139, 53))
              
  axis(side=1,at=1:2,labels=c("Varivel 1", "Varivel 2")) 
  
  mod <- lm(var.2~var.1)
  
  qqplot(var.1,var.2, main="Grfico quantil-quantil das variveis", xlab="Varivel 1",ylab="Varivel 2",col = c(139,53))
    
  plot(var.2~var.1, main="Varivel 2 em funo da Varivel 1",xlab="Varivel 1",ylab="Varivel 2", col = c(139,53))
  abline(mod, col="red", lty=6)
  coef.mod <- coef(mod)	
  
  res <- list(summary(var.1),summary(var.2),cor(var.2,var.1))
  names(res) <- c("Varivel.1", "Varivel.2", "Correlao")
 
  return(res)
}
 
